home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / dev / lang / pcq12src.lzh / Runtime / System / Graphics / GELS.asm < prev    next >
Assembly Source File  |  1990-05-11  |  2KB  |  152 lines
  1. *
  2. *    GELS.asm for PCQ Pascal
  3. *    Copyright (c) 1990 Patrick Quaid
  4. *
  5. *    These are the glue routines for the procedures and functions
  6. *    defined in Include/Graphics/GELS.i
  7. *
  8.  
  9.     SECTION PCQ_Runtime,CODE
  10.  
  11.     XREF    _GfxBase
  12.  
  13.  
  14.     XREF    _LVOAddAnimOb
  15.     XDEF    _AddAnimOb
  16. _AddAnimOb
  17.     move.l    4(sp),a2
  18.     move.l    8(sp),a1
  19.     move.l    12(sp),a0
  20.     move.l    _GfxBase,a6
  21.     jmp    _LVOAddAnimOb(a6)
  22.  
  23.  
  24.     XREF    _LVOAddBob
  25.     XDEF    _AddBob
  26. _AddBob
  27.     move.l    4(sp),a1
  28.     move.l    8(sp),a0
  29.     move.l    _GfxBase,a6
  30.     jmp    _LVOAddBob(a6)
  31.  
  32.  
  33.     XREF    _LVOAddVSprite
  34.     XDEF    _AddVSprite
  35. _AddVSprite
  36.     move.l    4(sp),a1
  37.     move.l    8(sp),a0
  38.     move.l    _GfxBase,a6
  39.     jmp    _LVOAddVSprite(a6)
  40.  
  41.  
  42.     XREF    _LVOAnimate
  43.     XDEF    _Animate
  44. _Animate
  45.     move.l    4(sp),a1
  46.     move.l    8(sp),a0
  47.     move.l    _GfxBase,a6
  48.     jmp    _LVOAnimate(a6)
  49.  
  50.  
  51.     XREF    _LVODoCollision
  52.     XDEF    _DoCollision
  53. _DoCollision
  54.     move.l    4(sp),a1
  55.     move.l    _GfxBase,a6
  56.     jmp    _LVODoCollision(a6)
  57.  
  58.  
  59.     XREF    _LVODrawGList
  60.     XDEF    _DrawGList
  61. _DrawGList
  62.     move.l    4(sp),a0
  63.     move.l    8(sp),a1
  64.     move.l    _GfxBase,a6
  65.     jmp    _LVODrawGList(a6)
  66.  
  67.  
  68.     XREF    _LVOFreeGBuffers
  69.     XDEF    _FreeGBuffers
  70. _FreeGBuffers
  71.     move.w    4(sp),d0
  72.     move.l    6(sp),a1
  73.     move.l    10(sp),a0
  74.     move.l    _GfxBase,a6
  75.     jmp    _LVOFreeGBuffers(a6)
  76.  
  77.  
  78.     XREF    _LVOGetGBuffers
  79.     XDEF    _GetGBuffers
  80. _GetGBuffers
  81.     move.w    4(sp),d0
  82.     move.l    6(sp),a1
  83.     move.l    10(sp),a0
  84.     move.l    _GfxBase,a6
  85.     jsr    _LVOGetGBuffers(a6)
  86.     tst.l    d0
  87.     sne    d0
  88.     rts
  89.  
  90.     XREF    _LVOInitGels
  91.     XDEF    _InitGels
  92. _InitGels
  93.     move.l    4(sp),a2
  94.     move.l    8(sp),a1
  95.     move.l    12(sp),a0
  96.     move.l    _GfxBase,a6
  97.     jmp    _LVOInitGels(a6)
  98.  
  99.  
  100.     XREF    _LVOInitGMasks
  101.     XDEF    _InitGMasks
  102. _InitGMasks
  103.     move.l    4(sp),a0
  104.     move.l    _GfxBase,a6
  105.     jmp    _LVOInitGMasks(a6)
  106.  
  107.  
  108.     XREF    _LVOInitMasks
  109.     XDEF    _InitMasks
  110. _InitMasks
  111.     move.l    4(sp),a0
  112.     move.l    _GfxBase,a6
  113.     jmp    _LVOInitMasks(a6)
  114.  
  115.  
  116.     XREF    _LVORemIBob
  117.     XDEF    _RemIBob
  118. _RemIBob
  119.     move.l    4(sp),a2
  120.     move.l    8(sp),a1
  121.     move.l    12(sp),a0
  122.     move.l    _GfxBase,a6
  123.     jmp    _LVORemIBob(a6)
  124.  
  125.  
  126.     XREF    _LVORemVSprite
  127.     XDEF    _RemVSprite
  128. _RemVSprite
  129.     move.l    4(sp),a0
  130.     move.l    _GfxBase,a6
  131.     jmp    _LVORemVSprite(a6)
  132.  
  133.  
  134.     XREF    _LVOSetCollision
  135.     XDEF    _SetCollision
  136. _SetCollision
  137.     move.l    4(sp),a1
  138.     move.l    8(sp),a0
  139.     move.l    12(sp),d0
  140.     move.l    _GfxBase,a6
  141.     jmp    _LVOSetCollision(a6)
  142.  
  143.  
  144.     XREF    _LVOSortGList
  145.     XDEF    _SortGList
  146. _SortGList
  147.     move.l    4(sp),a1
  148.     move.l    _GfxBase,a6
  149.     jmp    _LVOSortGList(a6)
  150.  
  151.     END
  152.